home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / slatex / defaults.ss < prev    next >
Text File  |  1993-11-07  |  2KB  |  113 lines
  1. ;defaults.ss
  2. ;SLaTeX Version 1.99
  3. ;Default database for SLaTeX
  4. ;(c) Dorai Sitaram, December 1991, Rice University
  5.  
  6. (define keyword-tokens
  7.   (map symbol->string
  8.        '(
  9.      ;RnRS (plus some additional Scheme) keywords
  10.      =>
  11.      %
  12.      abort
  13.      and 
  14.      begin 
  15.      begin0
  16.      case
  17.      case-lambda     
  18.      cond
  19.      define
  20.      define!
  21.      define-macro!
  22.      define-syntax
  23.      defrec!
  24.      delay
  25.      do
  26.      else 
  27.      extend-syntax 
  28.      fluid-let 
  29.      if 
  30.      lambda 
  31.      let 
  32.      let*
  33.      letrec 
  34.      let-syntax
  35.      letrec-syntax
  36.      or
  37.      quasiquote 
  38.      quote
  39.      rec
  40.      record-case
  41.      record-evcase
  42.      recur
  43.      set!
  44.      sigma 
  45.      struct 
  46.      syntax
  47.      syntax-rules
  48.      trace
  49.      trace-lambda 
  50.      trace-let
  51.      trace-recur
  52.      unless
  53.      unquote
  54.      unquote-splicing
  55.      untrace
  56.      when
  57.      with 
  58.      )))
  59.   
  60. (define variable-tokens '())
  61.  
  62. (define constant-tokens '())
  63.  
  64. (define special-symbols
  65.   '(
  66.     ("." . ".")
  67.     ("..." . "{\\ldots}")
  68.     ("-" . "$-$")
  69.     ("1-" . "\\va{1$-$}")
  70.     ("-1+" . "\\va{$-$1$+$}")
  71.     ))
  72.  
  73. (define macro-definers
  74.   '("extend-syntax" "define-macro!" "defmacro"))
  75.  
  76. (define case-and-ilk
  77.   '("case" "record-case"))
  78.  
  79. (define tex-analog
  80.   (lambda (c)
  81.     ;find a TeX string that corresponds to the character c
  82.     (cond
  83.       ((memv c '(#\$ #\& #\% #\# #\_ #\{ #\})) (string #\\ c))
  84.       ;((char=? c #\#) "{\\sf\\#}")
  85.       ;((char=? c #\\) "{\\ttbackslash}")
  86.       ((char=? c #\+) "$+$")
  87.       ((char=? c #\=) "$=$")
  88.       ((char=? c #\<) "$\\lt$")
  89.       ((char=? c #\>) "$\\gt$")
  90.       ((char=? c #\^) "\\^{}")
  91.       ((char=? c #\\) "$\\backslash$")
  92.       ((char=? c #\|) "$\\vert$")
  93.       ;((char=? c #\~) "\\verb-~-")
  94.       ((char=? c #\~) "\\~{}")
  95.       ((char=? c #\@) "{\\atsign}")
  96.       ((char=? c #\") "{\\tt\\dq}")
  97.       (else (string c)))))
  98.  
  99. (define *slatex-case-sensitive?* #t)
  100. (define *slatex-enabled?* #t)
  101. (define *slatex-reenabler* "UNDEFINED")
  102. (define *intext-triggerers* (list "scheme"))
  103. (define *resultintext-triggerers* (list "schemeresult"))
  104. (define *display-triggerers* (list "schemedisplay"))
  105. (define *box-triggerers* (list "schemebox"))
  106. (define *input-triggerers* (list "schemeinput"))
  107. (define *region-triggerers* (list "schemeregion"))
  108. (define *math-triggerers* '())
  109. (define *slatex-in-protected-region?* #f)
  110. (define *protected-files* '())
  111. (define *include-onlys* '())
  112. (define *latex?* #t)
  113.